Monster Media 1996 #14/Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO/prog_d/oleauttr.zip/WORDDRIV.ZIP/WORDDRIV.DFM/WORDDRIV.txt

Text File | 1996-01-02 | 5KB | 250 lines

object frmWordDriv: TfrmWordDriv
  Left = 186
  Top = 97
  Width = 550
  Height = 444
  Caption = 'OLE Automation Test Driver for MS-Word for Windows 6.0/7.0'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnClose = FormClose
  TextHeight = 16
  object Label1: TLabel
    Left = 152
    Top = 18
    Width = 250
    Height = 16
    Caption = 'It won'#39't work unless you click this first!'
  end
  object Label2: TLabel
    Left = 152
    Top = 48
    Width = 334
    Height = 16
    Caption = 'Have W/W open a new file based on NORMAL.DOT.'
  end
  object Label3: TLabel
    Left = 312
    Top = 80
    Width = 212
    Height = 16
    Caption = 'Do this macro (in NORMAL.DOT).'
  end
  object Label4: TLabel
    Left = 152
    Top = 107
    Width = 361
    Height = 16
    Caption = 'Set some check boxes on the Tools|Options|Edit dialog.'
  end
  object Label5: TLabel
    Left = 151
    Top = 167
    Width = 283
    Height = 16
    Caption = 'Close the file opened earlier -- don'#39't save it.'
  end
  object Label6: TLabel
    Left = 152
    Top = 350
    Width = 263
    Height = 16
    Caption = 'Make the WinWord OLE server go away.'
  end
  object lblSelection: TLabel
    Left = 150
    Top = 136
    Width = 366
    Height = 17
    AutoSize = False
  end
  object btnCreate: TButton
    Left = 16
    Top = 14
    Width = 121
    Height = 23
    Caption = '&Create object'
    TabOrder = 0
    OnClick = btnCreateClick
  end
  object btnDestroy: TButton
    Left = 16
    Top = 347
    Width = 121
    Height = 23
    Caption = '&Destroy object'
    TabOrder = 1
    OnClick = btnDestroyClick
  end
  object btnExit: TButton
    Left = 220
    Top = 381
    Width = 89
    Height = 23
    Caption = 'E&xit'
    TabOrder = 2
    OnClick = btnExitClick
  end
  object btnFileNew: TButton
    Left = 48
    Top = 44
    Width = 89
    Height = 23
    Caption = 'New file'
    TabOrder = 3
    OnClick = btnFileNewClick
  end
  object btnDiscard: TButton
    Left = 47
    Top = 163
    Width = 89
    Height = 23
    Caption = 'Discard file'
    TabOrder = 4
    OnClick = btnDiscardClick
  end
  object btnMacro: TButton
    Left = 48
    Top = 73
    Width = 89
    Height = 23
    Caption = 'Do Macro'
    TabOrder = 5
    OnClick = btnMacroClick
  end
  object btnEditOptions: TButton
    Left = 48
    Top = 103
    Width = 89
    Height = 23
    Caption = 'EditOptions'
    TabOrder = 6
    OnClick = btnEditOptionsClick
  end
  object txtMacroName: TEdit
    Left = 152
    Top = 74
    Width = 145
    Height = 22
    TabOrder = 7
    Text = 'DummyMsg'
  end
  object btnGetSelection: TButton
    Left = 47
    Top = 133
    Width = 89
    Height = 23
    Caption = 'Selection:'
    TabOrder = 8
    OnClick = btnGetSelectionClick
  end
  object gbxFFTest: TGroupBox
    Left = 46
    Top = 193
    Width = 390
    Height = 147
    Caption = 'Test FileFind functions'
    TabOrder = 9
    object lblCountFoundFiles: TLabel
      Left = 111
      Top = 90
      Width = 65
      Height = 17
      AutoSize = False
    end
    object Label7: TLabel
      Left = 12
      Top = 32
      Width = 89
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Caption = 'File mask:'
    end
    object Label8: TLabel
      Left = 161
      Top = 12
      Width = 81
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Caption = 'Directory'
    end
    object Label9: TLabel
      Left = 314
      Top = 12
      Width = 49
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Caption = 'Name'
    end
    object btnFileFind: TButton
      Left = 12
      Top = 58
      Width = 89
      Height = 23
      Caption = 'FileFind'
      TabOrder = 0
      OnClick = btnFileFindClick
    end
    object edtFileFindDir: TEdit
      Left = 111
      Top = 30
      Width = 180
      Height = 21
      TabOrder = 1
      Text = 'c:\'
    end
    object edtFileFindName: TEdit
      Left = 300
      Top = 31
      Width = 77
      Height = 21
      TabOrder = 2
      Text = '*.pas'
    end
    object btnCountFoundFiles: TButton
      Left = 12
      Top = 86
      Width = 89
      Height = 23
      Caption = 'CountFF'
      TabOrder = 3
      OnClick = btnCountFoundFilesClick
    end
    object btnFFNames: TButton
      Left = 12
      Top = 114
      Width = 89
      Height = 23
      Caption = 'FFNames'
      TabOrder = 4
      OnClick = btnFFNamesClick
    end
    object cbFFNames: TComboBox
      Left = 112
      Top = 116
      Width = 266
      Height = 21
      Style = csDropDownList
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      Items.Strings = (
        'Click FileFind, then FFNames, then drop me down.')
      ParentFont = False
      TabOrder = 5
    end
  end
  object OleAutoClient1: TOleAutoClient
    Left = 8
    Top = 120
  end
end